home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_4717.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  5.7 KB  |  252 lines
  1. -- card: 4717 from stack: in.6
  2. -- bmap block id: 4978
  3. -- flags: 0000
  4. -- background id: 2598
  5. -- name: Mailing
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  9.   if NodeType = "vms" then
  10.     hide card button id 7
  11.   else
  12.     show card button id 7
  13.   end if
  14. end opencard
  15.  
  16. on StartReadMail p1
  17.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  18.   global CommStorage
  19.   global LastInput
  20.   global StringGot
  21.   global DirectoryGot
  22.   set cursor to busy
  23.   put false into DirectoryGot
  24.   put empty into card field 1
  25.   put empty into card field "UserMessage"
  26.   go card "MailDir"
  27.   show card field 1
  28.   put empty  into card field "UserMessage"
  29.   put empy into card field 1
  30.   openascii
  31.  
  32.   if NodeType is "unix" then
  33.     writeascii "x" & return
  34.     displayscreen "dis",CommPrompt
  35.     put return & "& " into prompt
  36.     if p1 = "Normal" then
  37.       writeascii numtochar(17) & "/usr/ucb/mail" & return
  38.     else
  39.       writeascii numtochar(17) & "/usr/ucb/mail -f ~/mbox" & return
  40.     end if
  41.     put empty into card field 1
  42.     displayscreen "dis",prompt,CommPrompt
  43.     displayscreen "dis",prompt,CommPrompt
  44.   else
  45.     writeascii "mail" & return
  46.     put empty into card field 1
  47.     put "MAIL>" into prompt
  48.     put empty into card field 1
  49.     displayscreen "dis",prompt
  50.   end if
  51.  
  52.   if NodeType is "unix" then
  53.     put offset("& ",card field 1) into OK
  54.   else
  55.     put offset("new message",card field 1) into OK
  56.   end if
  57.  
  58.   -- put "OK=" && OK && second word of card field 1
  59.   if OK = 0 then
  60.     if NodeType is "unix" then
  61.       answer "*** Sinulle ei ole uusia kirjeit├ñ (no mail)***"
  62.       go card "Mailing"
  63.       writeascii "x" & return
  64.       displayscreen
  65.       put space into card field 1
  66.     else
  67.       answer " **Sinulle ei ole uusi kirjeit├ñ - t├ñss├ñ vanhat**"
  68.       closeascii
  69.       MailDirectory
  70.       show card field 1
  71.     end if
  72.   else
  73.     show card field 1
  74.     put "Voit lukea nyt kirjeit├ñ. (You can read now)" into card field "UserMessage"
  75.     if NodeType is "unix" then
  76.       writeascii  "set crt=19" & return
  77.     end if
  78.     closeascii
  79.     MailDirectory
  80.   end if
  81.   set scroll of card field 1 to 0
  82.   hide message
  83. end StartReadMail
  84.  
  85.  
  86.  
  87. -- part 1 (button)
  88. -- low flags: 00
  89. -- high flags: A000
  90. -- rect: left=181 top=100 right=155 bottom=239
  91. -- title width / last selected line: 65535
  92. -- icon id / first selected line: -15680 / 49856
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Read letters
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   -- set lockscreen to true
  102.   StartReadMail "normal"
  103.   set lockscreen to false  -- with dissolve
  104. end mouseUp
  105.  
  106.  
  107. -- part 2 (button)
  108. -- low flags: 00
  109. -- high flags: A000
  110. -- rect: left=254 top=116 right=167 bottom=320
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 1004 / 1004
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Send a letter
  119. ----- HyperTalk script -----
  120. on mouseup
  121.   set lockscreen to true
  122.   global SendMode
  123.   set cursor to watch
  124.   put "send" into SendMode
  125.   put space into card field "userMessage"
  126.   visual effect iris open
  127.   go card "card2"
  128.   put space into card field 1
  129.   set scroll of card field 1 to 0
  130.   hide card field "UserMEssage"
  131.   -- click at the location of card field 1
  132.   -- put the loc of card field 1
  133. end mouseup
  134.  
  135.  
  136.  
  137. -- part 3 (button)
  138. -- low flags: 00
  139. -- high flags: A000
  140. -- rect: left=43 top=68 right=123 bottom=95
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 14953 / 14953
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Go Back
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  152.   openascii
  153.   visual effect iris close
  154.   go card "card1"
  155.   closeascii
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 4 (field)
  161. -- low flags: 00
  162. -- high flags: 2007
  163. -- rect: left=3 top=200 right=339 bottom=182
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 9
  169. -- style flags: 0
  170. -- line height: 12
  171. -- part name: Field 1
  172.  
  173.  
  174. -- part 5 (field)
  175. -- low flags: 01
  176. -- high flags: 2000
  177. -- rect: left=276 top=203 right=242 bottom=510
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 0
  181. -- font id: 3
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: UserMessage
  186.  
  187.  
  188. -- part 6 (field)
  189. -- low flags: 81
  190. -- high flags: 2002
  191. -- rect: left=417 top=313 right=336 bottom=493
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: LineCount
  200.  
  201.  
  202. -- part 7 (button)
  203. -- low flags: 00
  204. -- high flags: A000
  205. -- rect: left=326 top=92 right=143 bottom=420
  206. -- title width / last selected line: 65535
  207. -- icon id / first selected line: -15680 / 49856
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Read old letters
  214. ----- HyperTalk script -----
  215. on mouseup
  216.   StartReadMail
  217. end mouseup
  218.  
  219.  
  220.  
  221. -- part contents for card part 6
  222. ----- text -----
  223. Lines 22
  224.  
  225. -- part contents for card part 5
  226. ----- text -----
  227.  
  228.  
  229. -- part contents for card part 4
  230. ----- text -----
  231.  
  232.  
  233. 5:55pm@tukki:~% /usr/ucb/mail sorjonen
  234.  
  235. Subject: Commstack 2.6
  236.  
  237. CommStack
  238.  
  239. En l|yt{nyt t{st{ CommSTackist{ mit{{n vikaa, joka olisi aiheuttanut sen
  240. yhden tach-noten virheellisen talletuksen.  Olisikoo ollut niin, ett{
  241. se tallettui oikein, mutta et huomannut poistaa tech-noten jokaisen
  242. osan alusta ja lopusta niit{ pupputekstej{. Miten yhdistit tiedostot
  243. toisiinsa?? Joku Unite kai osaa aika hyvin poistaa liiat, mutta
  244. append esimerkiksi ei osaa.
  245.  
  246. Lis{sin BINHEX-homman my|s mailiin. Uusi CommStack 2.6 on maclib:ss{.
  247.  
  248. Seppo
  249.  
  250. .
  251. EOT
  252. 5:55pm@tukki:~%